From 3b6cb57897a10cb685d640e93d2b24271b09b38c Mon Sep 17 00:00:00 2001
From: David Johnson-Davies <david@technoblogy.com>
Date: Sun, 8 Sep 2019 10:47:49 +0100
Subject: [PATCH] Version 2.8d - 8th September 2019

Fix save-image
---
 ulisp-arm.ino | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ulisp-arm.ino b/ulisp-arm.ino
index 5b1f4fb..baaa2db 100644
--- a/ulisp-arm.ino
+++ b/ulisp-arm.ino
@@ -1,5 +1,5 @@
-/* uLisp ARM 2.8c - www.ulisp.com
-   David Johnson-Davies - www.technoblogy.com - 7th September 2019
+/* uLisp ARM 2.8d - www.ulisp.com
+   David Johnson-Davies - www.technoblogy.com - 8th September 2019
 
    Licensed under the MIT license: https://opensource.org/licenses/MIT
 */
@@ -577,7 +577,7 @@ int saveimage (object *arg) {
   int bytesneeded = imagesize*8 + SYMBOLTABLESIZE + 20;
   if (bytesneeded > DATAFLASHSIZE) error(SAVEIMAGE, PSTR("image size too large"), number(imagesize));
   unsigned long addr = 0;
-  FlashBeginWrite(ceil(bytesneeded/65536));
+  FlashBeginWrite((bytesneeded+65535)/65536);
   FlashWriteInt(&addr, (uintptr_t)arg);
   FlashWriteInt(&addr, imagesize);
   FlashWriteInt(&addr, (uintptr_t)GlobalEnv);