diff --git a/include/codeb.c b/include/codeb.c
index 1564a1e95..fd388ec3c 100755
--- a/include/codeb.c
+++ b/include/codeb.c
@@ -751,7 +751,8 @@ int DB_packindex(short vis, const char * filename, RecDes *r, long *peod)
     }           
     if (u4switch() & 1 || u4switch() & 4) /* FOXPRO and DBIV */
     {
-      rt = (int)i4create(dbdata[handle],NULL,tags); 
+      rt = (int)i4create(dbdata[handle],NULL,tags);
+      if (rt == 0) rt = code_base.error_code; 
 #ifndef FOXPRO
       progind_set_status((long)r->NKeys);
 #endif