--- a/Workspace.st	Sat Jul 13 22:33:12 2013 +0200
+++ b/Workspace.st	Sat Jul 13 22:49:30 2013 +0200
@@ -451,12 +451,8 @@
 
     WorkspaceVariables notNil ifTrue:[
         WorkspaceVariables removeKey:name ifAbsent:nil.
-        WorkspaceVariables isEmpty ifTrue:[
-            WorkspaceVariables := nil
-        ]
+        WorkspaceVariables := WorkspaceVariables asNilIfEmpty.
     ].
-
-
 !
 
 workspaceVariableAt:name
@@ -2073,10 +2069,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.268 2013-06-26 08:16:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.269 2013-07-13 20:49:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.268 2013-06-26 08:16:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.269 2013-07-13 20:49:30 cg Exp $'
 ! !