ApplicationModel.st
changeset 3677 1fd6bb99c343
parent 3670 21de0f66fa8e
child 3678 393a135d1c66
--- a/ApplicationModel.st	Wed May 11 01:30:12 2016 +0200
+++ b/ApplicationModel.st	Thu May 12 17:48:32 2016 +0200
@@ -3511,10 +3511,19 @@
      Can be refefined in subclasses which want to provide per-instance specs."
 
     aSelectorOrSpec isSymbol ifFalse:[
-	(aSelectorOrSpec isKindOf:UISpecification) ifTrue:[^ aSelectorOrSpec].
+        (aSelectorOrSpec isKindOf:UISpecification) ifTrue:[^ aSelectorOrSpec].
     ].
-    ^ self class interfaceSpecFor:aSelectorOrSpec
-
+    UnhandledAttributeInLiteralArrayErrorSignal handle:[:ex |
+        "/ that is to support debugging - to easily find the bad spec
+        Transcript showCR:'%1 [warning]: Error in spec (%2):' withCRs 
+                                with:self class name 
+                                with:aSelectorOrSpec.
+        Transcript showCR:ex description. 
+        ex proceed.
+    ] do:[    
+        ^ self class interfaceSpecFor:aSelectorOrSpec
+    ].
+    
     "Created: / 25-01-1998 / 19:45:12 / cg"
     "Modified: / 14-01-2008 / 17:54:29 / cg"
 !