From 0469088e9fd0b2417159c30fe1caed762cb92e3d Mon Sep 17 00:00:00 2001
From: David Johnson-Davies <david@technoblogy.com>
Date: Sat, 11 Jan 2020 18:06:01 +0000
Subject: [PATCH] Version 3.0c - 11th January 2020

Fixes #19
---
 ulisp-arm.ino | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ulisp-arm.ino b/ulisp-arm.ino
index 4882da4..b7dbe3d 100644
--- a/ulisp-arm.ino
+++ b/ulisp-arm.ino
@@ -1,5 +1,5 @@
-/* uLisp ARM 3.0b - www.ulisp.com
-   David Johnson-Davies - www.technoblogy.com - 5th January 2020
+/* uLisp ARM 3.0c - www.ulisp.com
+   David Johnson-Davies - www.technoblogy.com - 11th January 2020
 
    Licensed under the MIT license: https://opensource.org/licenses/MIT
 */
@@ -2754,6 +2754,7 @@ object *fn_sort (object *args, object *env) {
   push(list,GCStack);
   object *predicate = second(args);
   object *compare = cons(NULL, cons(NULL, NULL));
+  push(compare,GCStack);
   object *ptr = cdr(list);
   while (cdr(ptr) != NULL) {
     object *go = list;
@@ -2770,7 +2771,7 @@ object *fn_sort (object *args, object *env) {
       cdr(go) = obj;
     } else ptr = cdr(ptr);
   }
-  pop(GCStack);
+  pop(GCStack); pop(GCStack);
   return cdr(list);
 }