diff --git a/docs/upgrades/upgrade_6.8.8-6.99.0.pl b/docs/upgrades/upgrade_6.8.8-6.99.0.pl
index fec662a98..3bc28a5c2 100644
--- a/docs/upgrades/upgrade_6.8.8-6.99.0.pl
+++ b/docs/upgrades/upgrade_6.8.8-6.99.0.pl
@@ -52,6 +52,7 @@ updateArticle();
 updateScratch();
 installSQLForm();
 addResizableTextareas();
+addScratchKeys();
 
 finish($session); # this line required
 
@@ -906,6 +907,12 @@ sub changeDbCacheTimeoutName {
 	$session->db->write("alter table groups change dbCacheTimeout groupCacheTimeout int not null default 3600");
 }
 
+#-------------------------------------------------
+sub addScratchKeys {
+	print "\tAssigning keys to userSessionScratch.\n" unless ($quiet);
+	$session->db->write("alter table userSessionScratch ADD PRIMARY KEY (sessionId, name)");
+}
+
 #-------------------------------------------------
 sub addNavigationMimeType {
 	print "\tAdding Mime Type to Navigations.\n" unless ($quiet);