diff -r 64c2d739caf1 -r 098447d8c614 WindowBuilder.st
--- a/WindowBuilder.st	Fri Feb 14 01:16:56 1997 +0100
+++ b/WindowBuilder.st	Fri Feb 14 01:42:03 1997 +0100
@@ -184,7 +184,9 @@
         ^ application actionFor:aKey
     ].
     applicationClass notNil ifTrue:[
-        ^ applicationClass actionFor:aKey
+        (applicationClass respondsTo:#actionFor:) ifTrue:[
+            ^ applicationClass actionFor:aKey
+        ]
     ].
     ^ []
 
@@ -196,7 +198,9 @@
         ^ application aspectFor:aKey
     ].
     applicationClass notNil ifTrue:[
-        ^ applicationClass aspectFor:aKey
+        (applicationClass respondsTo:#aspectFor:) ifTrue:[
+            ^ applicationClass aspectFor:aKey
+        ]
     ].
     ^ self aspectAt:aKey
 
@@ -210,7 +214,9 @@
         ^ application componentFor:aKey
     ].
     applicationClass notNil ifTrue:[
-        ^ applicationClass componentFor:aKey
+        (applicationClass respondsTo:#componentFor:) ifTrue:[
+            ^ applicationClass componentFor:aKey
+        ]
     ].
     ^ self aspectAt:aKey
 
@@ -223,7 +229,9 @@
         ^ application labelFor:aKey
     ].
     applicationClass notNil ifTrue:[
-        ^ applicationClass labelFor:aKey
+        (applicationClass respondsTo:#labelFor:) ifTrue:[
+            ^ applicationClass labelFor:aKey
+        ]
     ].
     ^ self aspectAt:aKey
 
@@ -234,7 +242,9 @@
         ^ application listFor:aKey
     ].
     applicationClass notNil ifTrue:[
-        ^ applicationClass listFor:aKey
+        (applicationClass respondsTo:#listFor:) ifTrue:[
+            ^ applicationClass listFor:aKey
+        ]
     ].
     ^ self aspectAt:aKey
 
@@ -351,5 +361,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.20 1997-02-14 00:16:56 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.21 1997-02-14 00:42:03 ca Exp $'
 ! !