--- a/DeviceWorkstation.st	Tue Jul 09 16:07:49 2002 +0200
+++ b/DeviceWorkstation.st	Tue Jul 09 16:13:17 2002 +0200
@@ -4480,7 +4480,7 @@
                         ].
                     ]
                 ]
-            ] valueOnUnwindDo:[
+            ] ifCurtailed:[
                 inputSema notNil ifTrue:[
                     Processor disableSemaphore:inputSema.
                     inputSema := nil.
@@ -7550,6 +7550,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.413 2002-07-09 12:02:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.414 2002-07-09 14:13:17 stefan Exp $'
 ! !
 DeviceWorkstation initialize!