--- a/Method.st	Thu Jan 25 19:23:03 1996 +0100
+++ b/Method.st	Fri Jan 26 21:03:07 1996 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.69 1996-01-24 20:47:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.70 1996-01-26 20:03:07 cg Exp $'
 !
 
 documentation
@@ -1758,7 +1758,7 @@
     ].
 
     m := Method basicNew.
-    m category:cat.
+    cat notNil ifTrue:[m category:cat].
     m flags:flags.
     m literals:lits.
     m byteCode:code.