--- a/ApplicationModel.st	Thu Jan 17 10:57:17 2008 +0100
+++ b/ApplicationModel.st	Thu Jan 17 11:01:07 2008 +0100
@@ -2527,15 +2527,18 @@
     "Created: 5.7.1996 / 17:51:31 / cg"
 !
 
-interfaceSpecFor:aSelector
+interfaceSpecFor:aSelectorOrSpec
     "return an interface spec.
      Here, the query is forwarded to my class.
      Can be refefined in subclasses which want to provide per-instance specs."
 
-    ^ self class interfaceSpecFor:aSelector
-
-    "Created: / 25.1.1998 / 19:45:12 / cg"
-    "Modified: / 25.1.1998 / 19:47:09 / cg"
+    aSelectorOrSpec isSymbol ifFalse:[     
+        (aSelectorOrSpec isKindOf:UISpecification) ifTrue:[^ aSelectorOrSpec].
+    ].
+    ^ self class interfaceSpecFor:aSelectorOrSpec
+
+    "Created: / 25-01-1998 / 19:45:12 / cg"
+    "Modified: / 14-01-2008 / 17:54:29 / cg"
 !
 
 isOpen
@@ -2967,7 +2970,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.240 2008-01-09 17:59:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.241 2008-01-17 10:01:07 cg Exp $'
 ! !
 
 ApplicationModel initialize!