Commit 0351fffa 0351fffa71fcdb8e28ec349067f8a1eaf2bdc900 by Sergey Poznyakoff

(_get_address_part): Bugfix. Was passing too short a length to fun().

1 parent f636b941
......@@ -56,7 +56,7 @@ _get_address_part (const char *func_name, address_get_fp fun,
return SCM_BOOL_F;
}
if ((*fun) (addr, num, str, length, NULL) == 0)
if ((*fun) (addr, num, str, length + 1, NULL) == 0)
ret = scm_makfrom0str (str);
else
ret = SCM_BOOL_F;
......