--- a/WorkspaceApplication.st	Sun Mar 18 23:34:51 2012 +0000
+++ b/WorkspaceApplication.st	Mon Mar 19 10:03:58 2012 +0000
@@ -3683,15 +3683,15 @@
 !
 
 createWorkspace
-    |ws|
+    |ws|                            
 
     ws := self createWorkspaceView.
-    ws autoDefineVariables:autoDefineVariables.
+    ws autoDefineVariables:self autoDefineVariables value.
     ws poolsConsideredInDoIts:poolsConsideredInDoIts.
     ^ ws
 
-    "Modified: / 14-02-2010 / 19:51:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 05-07-2011 / 14:18:52 / cg"
+    "Modified: / 18-03-2012 / 23:37:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 createWorkspaceView
@@ -3818,7 +3818,7 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Id: WorkspaceApplication.st 7942 2012-03-18 23:34:51Z vranyj1 $'
+    ^ '$Id: WorkspaceApplication.st 7943 2012-03-19 10:03:58Z vranyj1 $'
 !
 
 version_CVS
@@ -3826,5 +3826,5 @@
 !
 
 version_SVN
-    ^ '$Id: WorkspaceApplication.st 7942 2012-03-18 23:34:51Z vranyj1 $'
+    ^ '$Id: WorkspaceApplication.st 7943 2012-03-19 10:03:58Z vranyj1 $'
 ! !