--- a/TextView.st	Wed Mar 06 18:09:32 1996 +0100
+++ b/TextView.st	Thu Mar 07 10:01:39 1996 +0100
@@ -803,9 +803,17 @@
     list isNil ifTrue:[^ self].
     printStream := Printer new.
     printStream notNil ifTrue:[
-	self fileOutContentsOn:printStream.
-	printStream close
+        Printer writeErrorSignal handle:[:ex |
+            self warn:('error while printing:\\' 
+                        , ex errorString 
+                        , '\\(printing with: ' , (Printer printCommand) , ')') withCRs
+        ] do:[
+            self fileOutContentsOn:printStream.
+        ].
+        printStream close
     ]
+
+    "Modified: 6.3.1996 / 18:28:14 / cg"
 !
 
 save
@@ -2061,5 +2069,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.41 1996-03-06 14:00:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.42 1996-03-07 09:01:39 cg Exp $'
 ! !