X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_string.c;h=cd7b27a97f1f67f7136f03f650cbf2aacaba0511;hb=f69d85e2b32370ab68e2725e739417cad6d7a590;hp=207d4f3be8eae13c90e6e4869a8327ba64f0793c;hpb=ddb4b8d90478ae324aa207a7541352c1ac9451ee;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c
index 207d4f3b..cd7b27a9 100644
--- a/src/lisp/ao_lisp_string.c
+++ b/src/lisp/ao_lisp_string.c
@@ -104,9 +104,9 @@ ao_lisp_string_unpack(char *a)
 		ao_lisp_cons_stash(1, tail);
 		ao_lisp_string_stash(0, a);
 		struct ao_lisp_cons	*n = ao_lisp_cons_cons(ao_lisp_int_poly(c), NULL);
+		a = ao_lisp_string_fetch(0);
 		cons = ao_lisp_cons_fetch(0);
 		tail = ao_lisp_cons_fetch(1);
-		a = ao_lisp_string_fetch(0);
 
 		if (!n) {
 			cons = NULL;