--- a/WorkspaceApplication.st	Fri Nov 24 12:38:59 2006 +0100
+++ b/WorkspaceApplication.st	Fri Nov 24 13:08:32 2006 +0100
@@ -979,19 +979,24 @@
 !
 
 addWorkspaceVariable
-    |name selection|
+    |name selectedWorkspacesTextView selection|
 
-    selection := self selectedWorkspacesTextView selection ? ''.
+    selectedWorkspacesTextView := self selectedWorkspacesTextView.
+    selectedWorkspacesTextView notNil ifTrue:[
+        selection := selectedWorkspacesTextView selection.
+    ].
 
     name := Dialog 
                 request:'Name of new Workspace Variable:'
-                initialAnswer:(selection asString string)
+                initialAnswer:(selection ? '') asString string
                 okLabel:'Add'
                 title:'Enter Variable Name'.
     name size == 0 ifTrue:[
         ^ self
     ].
     Workspace addWorkspaceVariable:name.
+
+    "Modified: / 24-11-2006 / 12:44:16 / cg"
 !
 
 addWorkspaceVariableInspector
@@ -1599,5 +1604,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.122 2006-11-24 11:02:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.123 2006-11-24 12:08:32 cg Exp $'
 ! !