--- a/BrowserView.st	Sat Jun 28 00:14:24 1997 +0200
+++ b/BrowserView.st	Sat Jun 28 13:44:41 1997 +0200
@@ -5953,14 +5953,17 @@
         |nm names source|
 
         "/ add version method containing RCS template
-        "/ but only if not already present.
-
-        (cls includesSelector:#version) ifFalse:[
-            Compiler compile:
+        "/ but only if not already present and its not a private class.
+
+        cls isPrivate ifFalse:[
+            (cls includesSelector:#version) ifFalse:[
+                Compiler compile:
 'version
     ^ ''$' , 'Header$''
-'                   forClass:cls 
-                  inCategory:'documentation'.
+' 
+                      forClass:cls 
+                      inCategory:'documentation'.
+            ]
         ].
 
         "/ add copyright method containing your/your companies
@@ -6033,11 +6036,12 @@
 
         self instanceProtocol:false.
         self switchToMethodNamed:#documentation 
+
 "/        self updateMethodCategoryListWithScroll:false.
 "/        self updateMethodListWithScroll:false
     ]
 
-    "Modified: 21.6.1997 / 12:35:45 / cg"
+    "Modified: 28.6.1997 / 13:43:14 / cg"
 !
 
 methodCategoryFileOut
@@ -10220,6 +10224,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.307 1997-06-25 12:00:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.308 1997-06-28 11:44:41 cg Exp $'
 ! !
 BrowserView initialize!

--- a/BrwsrView.st	Sat Jun 28 00:14:24 1997 +0200
+++ b/BrwsrView.st	Sat Jun 28 13:44:41 1997 +0200
@@ -5953,14 +5953,17 @@
         |nm names source|
 
         "/ add version method containing RCS template
-        "/ but only if not already present.
-
-        (cls includesSelector:#version) ifFalse:[
-            Compiler compile:
+        "/ but only if not already present and its not a private class.
+
+        cls isPrivate ifFalse:[
+            (cls includesSelector:#version) ifFalse:[
+                Compiler compile:
 'version
     ^ ''$' , 'Header$''
-'                   forClass:cls 
-                  inCategory:'documentation'.
+' 
+                      forClass:cls 
+                      inCategory:'documentation'.
+            ]
         ].
 
         "/ add copyright method containing your/your companies
@@ -6033,11 +6036,12 @@
 
         self instanceProtocol:false.
         self switchToMethodNamed:#documentation 
+
 "/        self updateMethodCategoryListWithScroll:false.
 "/        self updateMethodListWithScroll:false
     ]
 
-    "Modified: 21.6.1997 / 12:35:45 / cg"
+    "Modified: 28.6.1997 / 13:43:14 / cg"
 !
 
 methodCategoryFileOut
@@ -10220,6 +10224,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.307 1997-06-25 12:00:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.308 1997-06-28 11:44:41 cg Exp $'
 ! !
 BrowserView initialize!