Index: xotcl/library/store/XOTclSdbm/xotclsdbm.c
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -r900ba9665a79888f0561e2c4b8574c2e4a3dad8b
--- xotcl/library/store/XOTclSdbm/xotclsdbm.c	(.../xotclsdbm.c)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/store/XOTclSdbm/xotclsdbm.c	(.../xotclsdbm.c)	(revision 900ba9665a79888f0561e2c4b8574c2e4a3dad8b)
@@ -160,7 +160,7 @@
    */
   list = Tcl_NewListObj(0, NULL);
   do {
-      Tcl_ListObjAppendElement(in,list,Tcl_NewStringObj(key.dptr,key.dsize-1));
+    Tcl_ListObjAppendElement(in,list,Tcl_NewStringObj(key.dptr,(int)(key.dsize-1)));
       key = sdbm_nextkey(db->db);
   } while (key.dptr);
   Tcl_SetObjResult(in, list);
@@ -191,7 +191,7 @@
       content = sdbm_fetch(db->db,key);
       if (content.dptr) {
 	  /* found */
-	  Tcl_Obj *r = Tcl_NewStringObj(content.dptr, content.dsize-1);
+	Tcl_Obj *r = Tcl_NewStringObj(content.dptr, (int)(content.dsize-1));
 	  Tcl_SetObjResult(in, r);
       } else {
 	  /* key not found */