--- a/PeekableStream.st	Thu Apr 25 18:54:31 1996 +0200
+++ b/PeekableStream.st	Thu Apr 25 19:02:53 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Stream subclass:#PeekableStream
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Streams'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Streams'
 !
 
 !PeekableStream class methodsFor:'documentation'!
@@ -38,6 +38,9 @@
     abstract superclass for all Stream which support read-ahead
     (i.e. peeking) of one element.
     Concrete subclasses must implement a peek method.
+
+    [author:]
+        Claus Gittinger
 "
 ! !
 
@@ -203,5 +206,5 @@
 !PeekableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.13 1995-12-07 21:37:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.14 1996-04-25 17:01:02 cg Exp $'
 ! !