ChangesBrowser.st
changeset 226 4b050498fe46
parent 225 61d4648018c1
child 241 9366ced0db42
--- a/ChangesBrowser.st	Sun Dec 03 19:45:01 1995 +0100
+++ b/ChangesBrowser.st	Mon Dec 04 00:08:50 1995 +0100
@@ -578,6 +578,17 @@
     chunk := changeChunks at:changeNr.
     chunk isNil ifTrue:[^ nil].       "mhmh - empty"
 
+    "/ fix it
+    (chunk endsWith:'primitiveDefinitions:') ifTrue:[
+	chunk := chunk , ''''''
+    ].
+    (chunk endsWith:'primitiveFunctions:') ifTrue:[
+	chunk := chunk , ''''''
+    ].
+    (chunk endsWith:'primitiveVariables:') ifTrue:[
+	chunk := chunk , ''''''
+    ].
+
     "
      use parser to construct a parseTree
     "
@@ -1932,4 +1943,4 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.56 1995-12-03 18:45:01 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.57 1995-12-03 23:08:30 cg Exp $'! !