--- a/Workspace.st	Tue Dec 05 15:06:01 1995 +0100
+++ b/Workspace.st	Tue Dec 05 19:37:43 1995 +0100
@@ -423,9 +423,11 @@
 		AbortSignal handle:[:ex |
 		     ex return
 		] do:[
-		    value := doItAction value:code asString.
-		    cleanUp value. cleanUp := nil.
-		    aBlock value:value.
+		    doItAction notNil ifTrue:[
+		        value := doItAction value:code asString.
+		        cleanUp value. cleanUp := nil.
+		        aBlock value:value.
+		    ]
 		]
 	    ] valueNowOrOnUnwindDo:[
 		cleanUp notNil ifTrue:[cleanUp value. cleanUp := nil].
@@ -520,4 +522,4 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.33 1995-11-24 22:16:53 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.34 1995-12-05 18:37:43 cg Exp $'! !