diff --git a/THANKS b/THANKS
index 62c8b1030..4f32c7f24 100644
--- a/THANKS
+++ b/THANKS
@@ -25,6 +25,7 @@ For fixes or providing information which led to a fix:
     Han-Wen Nienhuys
       David Pirotte
      Julian Satchell
+       Bill Schottstaedt
     Dale P. Smith
  Jacques A. Vidrine.
     William Webber
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 8c286e6d9..5b73ff0f0 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-15  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* smob.[ch] (scm_make_smob_type):  Return type is scm_bits_t now.
+	Thanks to Bill Schottstaedt.
+
 2001-01-11  Michael Livshin  <mlivshin@bigfoot.com>
 
 	from Matthias Köppe:
diff --git a/libguile/smob.c b/libguile/smob.c
index 9c8463250..a14ca2c94 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -275,7 +275,7 @@ scm_smob_apply_3_error (SCM smob, SCM a1, SCM a2, SCM rst)
 }
 
 
-long 
+scm_bits_t 
 scm_make_smob_type (char *name, scm_sizet size)
 {
   char *tmp;
diff --git a/libguile/smob.h b/libguile/smob.h
index 065001b69..0b67ef950 100644
--- a/libguile/smob.h
+++ b/libguile/smob.h
@@ -143,7 +143,7 @@ extern int scm_smob_print (SCM exp, SCM port, scm_print_state *pstate);
  * values using `scm_set_smob_xxx'.
  */
 
-extern long scm_make_smob_type (char *name, scm_sizet size);
+extern scm_bits_t scm_make_smob_type (char *name, scm_sizet size);
 
 extern void scm_set_smob_mark (long tc, SCM (*mark) (SCM));
 extern void scm_set_smob_free (long tc, scm_sizet (*free) (SCM));