diff --git a/ase/lsp/mem.c b/ase/lsp/mem.c
index 0d4a2b09..43cdaa6a 100644
--- a/ase/lsp/mem.c
+++ b/ase/lsp/mem.c
@@ -1,5 +1,5 @@
 /*
- * $Id: mem.c,v 1.26 2007-02-03 10:51:52 bacon Exp $
+ * $Id: mem.c,v 1.27 2007-02-06 10:57:00 bacon Exp $
  *
  * {License}
  */
@@ -281,10 +281,11 @@ static void __mark_objs_in_use (ase_lsp_mem_t* mem)
 
 	/* mark objects in the interim frames */
 	frame = mem->brooding_frame;
-	while (frame != ASE_NULL) {
-
+	while (frame != ASE_NULL) 
+	{
 		assoc = frame->assoc;
-		while (assoc != ASE_NULL) {
+		while (assoc != ASE_NULL) 
+		{
 			__mark_obj (mem->lsp, assoc->name);
 
 			if (assoc->value != ASE_NULL) 
diff --git a/ase/lsp/prim.c b/ase/lsp/prim.c
index 1f417e10..8a13269c 100644
--- a/ase/lsp/prim.c
+++ b/ase/lsp/prim.c
@@ -1,5 +1,5 @@
 /*
- * $Id: prim.c,v 1.19 2007-02-03 10:51:53 bacon Exp $
+ * $Id: prim.c,v 1.20 2007-02-06 10:57:01 bacon Exp $
  *
  * {License}
  */
@@ -70,17 +70,17 @@ ase_lsp_obj_t* ase_lsp_prim_eval (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 	tmp1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
 	if (tmp1 == ASE_NULL) return ASE_NULL;
 
-	ase_lsp_lockobj (mem->lsp, tmp1);
+	ase_lsp_lockobj (lsp, tmp1);
 
 	tmp2 = ase_lsp_eval (lsp, tmp1);
 	if (tmp2 == ASE_NULL) 
 	{
-		ase_lsp_unlockobj (mem->lsp, tmp1);
+		ase_lsp_unlockobj (lsp, tmp1);
 		return ASE_NULL;
 	}
 
-	ase_lsp_unlockobj (mem->lsp, tmp1);
-	return tmp;
+	ase_lsp_unlockobj (lsp, tmp1);
+	return tmp2;
 }
 
 ase_lsp_obj_t* ase_lsp_prim_gc (ase_lsp_t* lsp, ase_lsp_obj_t* args)