--- a/PrinterStream.st	Thu Mar 30 19:08:53 2006 +0200
+++ b/PrinterStream.st	Fri Mar 31 11:14:46 2006 +0200
@@ -565,7 +565,7 @@
 nextPut:aCharacter
     "send a character to the printer"
 
-    self subclassResponsibility
+    self nextPutUntranslated:aCharacter
 !
 
 nextPutAll:aCollection
@@ -942,7 +942,7 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.60 2003-09-16 23:18:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.61 2006-03-31 09:14:46 cg Exp $'
 ! !
 
 PrinterStream initialize!