From 19b67ebe7e89f402521a6460f9ee1e2a3b0d4cfe Mon Sep 17 00:00:00 2001
From: David Johnson-Davies <david@interface.co.uk>
Date: Sat, 1 Dec 2018 16:07:14 +0000
Subject: [PATCH] Version 2.5a - 1st December 2018

Additional minor bug fix
---
 ulisp-arm.ino | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ulisp-arm.ino b/ulisp-arm.ino
index fed0b25..932c40e 100644
--- a/ulisp-arm.ino
+++ b/ulisp-arm.ino
@@ -1,5 +1,5 @@
-/* uLisp ARM Version 2.5 - www.ulisp.com
-   David Johnson-Davies - www.technoblogy.com - 30th November 2018
+/* uLisp ARM Version 2.5a - www.ulisp.com
+   David Johnson-Davies - www.technoblogy.com - 1st December 2018
 
    Licensed under the MIT license: https://opensource.org/licenses/MIT
 */
@@ -3591,7 +3591,7 @@ object *eval (object *form, object *env) {
   EVAL:
   // Enough space?
   if (End != 0xA5) error(PSTR("Stack overflow"));
-  if (Freespace < 20) gc(form, env);
+  if (Freespace <= WORKSPACESIZE>>4) gc(form, env);
   // Escape
   if (tstflag(ESCAPE)) { clrflag(ESCAPE); error(PSTR("Escape!"));}
   #if defined (serialmonitor)
@@ -4129,4 +4129,3 @@ void loop () {
   #endif
   repl(NULL);
 }
-