@@ -95,11 +95,11 @@
 			 (lambda (testdat)
 			   (let ((newcomment (db:test-get-comment testdat)))
 			     (if *dashboard-comment-share-slot*
 				 (if (not (equal? (iup:attribute *dashboard-comment-share-slot* "VALUE")
 						  newcomment))
-				     (iup:attribute-set! *dashboard-comment-slot*
+				     (iup:attribute-set! *dashboard-comment-share-slot*
 							 "VALUE"
 							 newcomment)))
 			     newcomment)))
 	    (store-label "testid"
 			 (iup:label "TestId                             "