fix breakage

diff --git a/tclpkg/tcldot/tcldot.c b/tclpkg/tcldot/tcldot.c
index 50c8efc8e5ce40cf03df228c50d22046d5c89469..a9173dc756fc840e8b2d9258865ab0bc3d1f8735 100644 (file)
--- a/tclpkg/tcldot/tcldot.c
+++ b/tclpkg/tcldot/tcldot.c
@@ -206,12 +206,21 @@ int Tcldot_Init(Tcl_Interp * interp)
     /* configure for available plugins */
     gvconfig(gvc, FALSE);
 
-    Tcl_CreateObjCommand(interp, "dotnew", dotnew,
-                        (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
-    Tcl_CreateObjCommand(interp, "dotread", dotread,
-                        (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
-    Tcl_CreateObjCommand(interp, "dotstring", dotstring,
-                        (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+#ifndef TCLOBJ
+     Tcl_CreateCommand(interp, "dotnew", dotnew,
+                      (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+     Tcl_CreateCommand(interp, "dotread", dotread,
+                      (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+     Tcl_CreateCommand(interp, "dotstring", dotstring,
+                      (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+#else                          /* TCLOBJ */
+     Tcl_CreateObjCommand(interp, "dotnew", dotnew,
+                         (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+     Tcl_CreateObjCommand(interp, "dotread", dotread,
+                         (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+     Tcl_CreateObjCommand(interp, "dotstring", dotstring,
+                         (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+#endif                         /* TCLOBJ */
 
     return TCL_OK;
 }