Index: ActiveX/DebugWindow.cls.xml
===================================================================
diff -u -r29059 -r32466
--- ActiveX/DebugWindow.cls.xml	(.../DebugWindow.cls.xml)	(revision 29059)
+++ ActiveX/DebugWindow.cls.xml	(.../DebugWindow.cls.xml)	(revision 32466)
@@ -48,13 +48,13 @@
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>ClientIP:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..ClientIP = $$GetClientIP^vhLib()
+	set ..ClientIP = $select($length(ClientIP):ClientIP,1:$$GetClientIP^vhLib())
 	Quit $$$OK
 ]]></Implementation>
 </Method>