From 6df04fce4d2d609bfbd5500fb4611504522f6bf7 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Wed, 6 Mar 2013 15:48:36 -0500
Subject: [PATCH] I2Hex now returns lower cased letters to conform with FTN
 mailer standards

---
 mdl/m_strings.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mdl/m_strings.pas b/mdl/m_strings.pas
index f267925..6a1eea6 100644
--- a/mdl/m_strings.pas
+++ b/mdl/m_strings.pas
@@ -172,7 +172,7 @@ Begin
   While Num <> 0 Do Begin
     Ch := Chr(48 + Byte(Num) AND $0F);
 
-    If Ch > '9' Then Inc (Ch, 7);
+    If Ch > '9' Then Inc (Ch, 39);
 
     Result[Idx] := Ch;
     Dec (Idx);