--- clips-6.24.orig/clipssrc/evaluatn.c
+++ clips-6.24/clipssrc/evaluatn.c
@@ -917,7 +917,7 @@
       case INSTANCE_ADDRESS:
 #endif
       case EXTERNAL_ADDRESS:
-         tvalue = (unsigned int) value;
+         tvalue = (unsigned int)(unsigned long) value;
          break;
 
       case STRING: