--- a/DeviceWorkstation.st	Sat Jun 14 14:31:57 2014 +0200
+++ b/DeviceWorkstation.st	Sun Jun 15 14:04:11 2014 +0200
@@ -4269,15 +4269,18 @@
 
 !DeviceWorkstation methodsFor:'error handling'!
 
-primitiveFailedOrClosedConnection
+primitiveFailedOrClosedConnection   
+    "sent by all primitives here, when something is wrong.
+     Check what was wrong and raise a corresponding error here."
+
     self isOpen ifFalse:[
-	"/ ignore in end-user apps
-	(Smalltalk isSmalltalkDevelopmentSystem) ifTrue:[
-	    DrawingOnClosedDeviceSignal raiseRequestWith:self.
-	].
-	^ nil
-    ].
-    ^ super primitiveFailed
+        "/ ignore in end-user apps
+        (Smalltalk isSmalltalkDevelopmentSystem) ifTrue:[
+            DrawingOnClosedDeviceSignal raiseRequestWith:self.
+        ].
+        ^ nil
+    ].
+    ^ self primitiveFailed
 !
 
 resourceOfId:id
@@ -8342,11 +8345,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.617 2014-06-14 12:31:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.618 2014-06-15 12:04:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.617 2014-06-14 12:31:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.618 2014-06-15 12:04:11 cg Exp $'
 ! !