--- a/DeviceWorkstation.st	Wed Nov 22 18:16:12 1995 +0100
+++ b/DeviceWorkstation.st	Wed Nov 22 18:33:03 1995 +0100
@@ -52,7 +52,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.50 1995-11-22 14:06:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.51 1995-11-22 17:33:03 cg Exp $'
 !
 
 documentation
@@ -541,7 +541,7 @@
     msg := 'Display error: ' , (self lastErrorString).
 
     DeviceErrorSignal isHandled ifFalse:[
-	msg errorPrintNL.
+	ErrorPrinting ifTrue:[msg errorPrintNL].
 	^ self
     ].