From c552f9de83083a649b74510b522ceaebbbc0283b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 17 Apr 2011 22:37:43 +0000
Subject: cleanup

---
 src/interp/htcheck.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/htcheck.boot')

diff --git a/src/interp/htcheck.boot b/src/interp/htcheck.boot
index 23bce74e..d416508a 100644
--- a/src/interp/htcheck.boot
+++ b/src/interp/htcheck.boot
@@ -107,7 +107,7 @@ getHtMacroItem line ==
     i = m => 0
     j := charPosition(char "]",line,i + 1)
     digitString := subString(line,i + 1,j - i - 1)
-    and/[digit? digitString.i for i in 0..maxIndex digitString]
+    and/[digit? stringChar(digitString,i) for i in 0..maxIndex digitString]
       => readInteger digitString
     return nil
   [command,:numOfArgs]
-- 
cgit v1.2.3