--- a/UIPainter.st	Fri Feb 28 13:25:51 1997 +0100
+++ b/UIPainter.st	Fri Feb 28 18:03:28 1997 +0100
@@ -961,10 +961,14 @@
 !
 
 doWindowSpec
-   |code v|
+   |code code2 v|
 
    code := workView generateWindowSpecMethodSource.
-   code := code , workView generateAspectMethods.
+"/   code2 := workView generateAspectMethods.
+   code2 notNil ifTrue:[
+       code := code , code2.
+   ].
+
    v := CodeView open.
    v contents:code.
    v label:'windowSpec'.