diff --git a/ldb/vars.c b/ldb/vars.c
index d7b689d15e2116427bc27e96ad69b3da73ce02f0..b17a7a6e13e53d1d2a3a885a6e7872e80436b0c9 100644
--- a/ldb/vars.c
+++ b/ldb/vars.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/vars.c,v 1.1 1990/02/24 19:37:32 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/vars.c,v 1.2 1992/03/24 04:25:09 wlott Exp $ */
 #include <stdio.h>
 
 #include "ldb.h"
@@ -133,6 +133,7 @@ boolean perm;
     int index;
 
     var->obj = obj;
+    var->update_fn = NULL;
 
     if (lookup_by_obj(obj) == NULL) {
         var->map_back = TRUE;