Index: library/nx/nx.tcl
===================================================================
diff -u -r21336c95f6123ebf608e5ab45b9674cffba35303 -rb4c1e40335b8210a65b8a7a560d7d69a38febbbd
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 21336c95f6123ebf608e5ab45b9674cffba35303)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision b4c1e40335b8210a65b8a7a560d7d69a38febbbd)
@@ -484,7 +484,9 @@
     }
     
     :protected method defaultmethod {} {
-      set obj [uplevel {::nsf::current}]
+      if {[catch {set obj [uplevel ::nsf::current]}]} {
+	error "Ensemble dispatch called outside of method context"
+      }
       set path [::nsf::current methodpath]
       set l [string length $path]
       set submethods [$obj ::nsf::methods::object::info::lookupmethods -path "$path *"]