Index: tcc4tcl.c
==================================================================
--- tcc4tcl.c
+++ tcc4tcl.c
@@ -47,11 +47,11 @@
 
 	ckfree((void *) ts);
 }
 
 static int Tcc4tclHandleCmd ( ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[]){
-	unsigned long val;
+	Tcl_WideInt val;
 	void *val_p;
 	int index;
 	int res;
 	struct TclTCCState *ts;
 	TCCState *s;
@@ -121,11 +121,14 @@
             if (objc != 4) {
                 Tcl_WrongNumArgs(interp, 2, objv, "symbol value");
                 return TCL_ERROR;
             }
 
-            Tcl_GetLongFromObj(interp, objv[3], &val);
+            if (Tcl_GetWideIntFromObj(interp, objv[3], &val) != TCL_OK) {
+                return TCL_ERROR;
+            }
+
             val_p = (void *) val;
 
             tcc_add_symbol(s,Tcl_GetString(objv[2]), val_p); 
             return TCL_OK; 
         case TCC4TCL_COMMAND: