diff --git a/HeapProfile/heapprofiler.icl b/HeapProfile/heapprofiler.icl
index e1868c97565fbac589a16b98dc26fc427bc2764e..1466f46c6413c01b7c5fd9619d85031affbc083c 100644
--- a/HeapProfile/heapprofiler.icl
+++ b/HeapProfile/heapprofiler.icl
@@ -170,6 +170,7 @@ printfun recId ps
 	| isNothing reply
 		= ps
 	# ((ok,printFont),ps)	= accPIO (accScreenPicture (openFont {fName="Courier New",fStyles=[BoldStyle],fSize=8})) ps 
+//	# ((ok,printFont),ps)	= accPIO (accScreenPicture (openFont {fName="Monaco",fStyles=[],fSize=9})) ps 
 	| not ok	// handle better...
 		= ps
 	= case (fromJust reply) of