--- a/Workspace.st	Thu May 08 02:25:15 2014 +0200
+++ b/Workspace.st	Mon May 12 23:03:54 2014 +0200
@@ -616,6 +616,9 @@
 
 editedLanguage:aProgrammingLanguageOrNil
     editedLanguage := aProgrammingLanguageOrNil.
+    aProgrammingLanguageOrNil notNil ifTrue:[
+        commentStrings := aProgrammingLanguageOrNil commentStrings.
+    ].
 !
 
 editedMethod
@@ -2291,10 +2294,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.328 2014-04-29 17:05:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.329 2014-05-12 21:03:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.328 2014-04-29 17:05:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.329 2014-05-12 21:03:54 cg Exp $'
 ! !