--- a/Workspace.st	Mon Apr 14 20:53:33 2014 +0200
+++ b/Workspace.st	Mon Apr 14 21:58:07 2014 +0200
@@ -2028,7 +2028,8 @@
                     |s printer|
 
                     self cursorLine:selectionEndLine col:(selectionEndCol + 1).
-                    (printer := self editedLanguage valuePrinterClass) notNil ifTrue:[
+                    (self editedLanguage notNil
+                    and:[(printer := self editedLanguage valuePrinterClass) notNil]) ifTrue:[
                         s := printer printStringForPrintItOf:result
                     ] ifFalse:[
                         (result isInteger 
@@ -2245,10 +2246,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.320 2014-04-14 18:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.321 2014-04-14 19:58:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.320 2014-04-14 18:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.321 2014-04-14 19:58:07 cg Exp $'
 ! !