Index: xotcl/ChangeLog
===================================================================
diff -u -r19c883b19ed0b21c426ffadf8de717f325b1eeda -r0c17e1f4acbae0016b3f20cd4cc431d03d4ac999
--- xotcl/ChangeLog	(.../ChangeLog)	(revision 19c883b19ed0b21c426ffadf8de717f325b1eeda)
+++ xotcl/ChangeLog	(.../ChangeLog)	(revision 0c17e1f4acbae0016b3f20cd4cc431d03d4ac999)
@@ -1,6 +1,10 @@
+2004-06-240 Gustaf.Neumann@wu-wien.ac.at
+	* fixed coredump for delegation to object without method specified
+          (many thanks fot Bryan Schofield for the bug report)
+	
 2004-06-20 Gustaf.Neumann@wu-wien.ac.at
 	* removed inclusion of <tclCompile.h>
-        * second version of delegatore methods cmd and instcmd 
+        * second version of delegator methods cmd and instcmd 
 
             A delegator method is defined via 
                Class instcmd method COMMAND ARGS
Index: xotcl/Makefile
===================================================================
diff -u -rd374abc5db9d88ce09ee134350fac67ae0d59e5e -r0c17e1f4acbae0016b3f20cd4cc431d03d4ac999
--- xotcl/Makefile	(.../Makefile)	(revision d374abc5db9d88ce09ee134350fac67ae0d59e5e)
+++ xotcl/Makefile	(.../Makefile)	(revision 0c17e1f4acbae0016b3f20cd4cc431d03d4ac999)
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: Makefile,v 1.6 2004/06/20 21:14:14 neumann Exp $
+# RCS: @(#) $Id: Makefile,v 1.7 2004/06/25 07:36:46 neumann Exp $
 
 #========================================================================
 # Add additional lines to handle any additional AC_SUBST cases that
@@ -123,7 +123,7 @@
 PACKAGE_NAME	= xotcl
 PACKAGE_VERSION	= 1.2.1
 CC		= gcc -pipe
-CFLAGS_DEFAULT	= -O -g
+CFLAGS_DEFAULT	= -O
 CFLAGS_WARNING	= -Wall -Wconversion -Wno-implicit-int
 CLEANFILES	= *.o *.a *.so *~ core gmon.out config.*
 EXEEXT		= 
Index: xotcl/generic/xotcl.c
===================================================================
diff -u -r19c883b19ed0b21c426ffadf8de717f325b1eeda -r0c17e1f4acbae0016b3f20cd4cc431d03d4ac999
--- xotcl/generic/xotcl.c	(.../xotcl.c)	(revision 19c883b19ed0b21c426ffadf8de717f325b1eeda)
+++ xotcl/generic/xotcl.c	(.../xotcl.c)	(revision 0c17e1f4acbae0016b3f20cd4cc431d03d4ac999)
@@ -1,5 +1,5 @@
 #define NAMESPACEINSTPROCS 1
-/* $Id: xotcl.c,v 1.6 2004/06/20 22:54:13 neumann Exp $
+/* $Id: xotcl.c,v 1.7 2004/06/25 07:36:46 neumann Exp $
  *
  *  XOTcl - Extended OTcl
  *
@@ -3952,27 +3952,31 @@
     filterStackPushed = 0,
     frameType = XOTCL_CSC_TYPE_PLAIN;
 #ifdef OBJDELETION_TRACE
-  Tcl_Obj *method = objv[1];
+  Tcl_Obj *method;
 #endif
-  char *methodName = ObjStr(objv[1]),
-    *callMethod = methodName;
+  char *methodName, *callMethod;
   XOTclClass *cl = 0;
   ClientData cp = 0;
   Tcl_ObjCmdProc *proc = 0;
   Tcl_Command cmd = 0;
   Tcl_Obj *cmdName = obj->cmdName;
   XOTclCallStack *cs = &RUNTIME_STATE(in)->cs;
+#ifdef AUTOVARS
+  int isNext;
+#endif
 
+  assert(objc>0);
+  methodName = callMethod = ObjStr(objv[1]);
 
 #ifdef AUTOVARS
-  int isNext = isNextString(methodName);
+  isNext = isNextString(methodName);
 #endif
-
 #ifdef DISPATCH_TRACE
   printCall(in,"DISPATCH", objc,objv);
 #endif
 
 #ifdef OBJDELETION_TRACE
+  method = objv[1];
   if (method == XOTclGlobalObjects[CLEANUP] ||
       method == XOTclGlobalObjects[DESTROY]) {
     fprintf(stderr, "%s->%s id=%p destroyCalled=%d\n",
@@ -7054,7 +7058,8 @@
     }
 
     if (GetXOTclObjectFromObj(in, tcd->cmdName, (void*)&cd) == TCL_OK) {
-      result = DoDispatch(cd, in, objc, ov, 0);
+      /*fprintf(stderr, "XOTcl object %s, objc=%d\n", ObjStr(tcd->cmdName),objc);*/
+      result = ObjDispatch(cd, in, objc, ov, 0);
     } else {
       /*fprintf(stderr, "no XOTcl object %s\n", ObjStr(tcd->cmdName));*/
       OV[0] = tcd->cmdName;
Index: xotcl/library/store/XOTclGdbm/Makefile
===================================================================
diff -u -rd374abc5db9d88ce09ee134350fac67ae0d59e5e -r0c17e1f4acbae0016b3f20cd4cc431d03d4ac999
--- xotcl/library/store/XOTclGdbm/Makefile	(.../Makefile)	(revision d374abc5db9d88ce09ee134350fac67ae0d59e5e)
+++ xotcl/library/store/XOTclGdbm/Makefile	(.../Makefile)	(revision 0c17e1f4acbae0016b3f20cd4cc431d03d4ac999)
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: Makefile,v 1.7 2004/06/20 21:14:14 neumann Exp $
+# RCS: @(#) $Id: Makefile,v 1.8 2004/06/25 07:36:46 neumann Exp $
 
 #========================================================================
 # Add additional lines to handle any additional AC_SUBST cases that
Index: xotcl/library/store/XOTclSdbm/Makefile
===================================================================
diff -u -rd374abc5db9d88ce09ee134350fac67ae0d59e5e -r0c17e1f4acbae0016b3f20cd4cc431d03d4ac999
--- xotcl/library/store/XOTclSdbm/Makefile	(.../Makefile)	(revision d374abc5db9d88ce09ee134350fac67ae0d59e5e)
+++ xotcl/library/store/XOTclSdbm/Makefile	(.../Makefile)	(revision 0c17e1f4acbae0016b3f20cd4cc431d03d4ac999)
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: Makefile,v 1.7 2004/06/20 21:14:14 neumann Exp $
+# RCS: @(#) $Id: Makefile,v 1.8 2004/06/25 07:36:46 neumann Exp $
 
 #========================================================================
 # Add additional lines to handle any additional AC_SUBST cases that
Index: xotcl/library/xml/TclExpat-1.1/Makefile
===================================================================
diff -u -rd374abc5db9d88ce09ee134350fac67ae0d59e5e -r0c17e1f4acbae0016b3f20cd4cc431d03d4ac999
--- xotcl/library/xml/TclExpat-1.1/Makefile	(.../Makefile)	(revision d374abc5db9d88ce09ee134350fac67ae0d59e5e)
+++ xotcl/library/xml/TclExpat-1.1/Makefile	(.../Makefile)	(revision 0c17e1f4acbae0016b3f20cd4cc431d03d4ac999)
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: Makefile,v 1.7 2004/06/20 21:14:14 neumann Exp $
+# RCS: @(#) $Id: Makefile,v 1.8 2004/06/25 07:36:46 neumann Exp $
 
 #========================================================================
 # Add additional lines to handle any additional AC_SUBST cases that