diff --git a/ChangeLog.n b/ChangeLog.n
index 0f2a5e2c9ec631db202fcc3273e3a20ac1acff07..42bb26745894f26a8ccabd8716d226aa4eb06e7e 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -1,3 +1,10 @@
+2008-07-31    <layer@HOBART>
+
+	* aclpc/acl-frames.lisp (initialize-tooltips): bug18026: use
+	  string-to-native on string in CreateWindow call because it
+	  will fail in an i18n image otherwise, causing a warning that
+	  annoys users. 
+
 *******************************************************************************
 join from trunk_afuchs3 to trunk
     changes from:
@@ -6335,4 +6342,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile
 	Lots of other stuff
 
 *******************************************************************************
-$Revision: 2.43 $
+$Revision: 2.44 $
diff --git a/aclpc/acl-frames.lisp b/aclpc/acl-frames.lisp
index be2f8b6cc37b3034a3f1bdf99b6ac5278ead754f..2461ab9095681edc7c94fb580abf52b8e5a5dd27 100644
--- a/aclpc/acl-frames.lisp
+++ b/aclpc/acl-frames.lisp
@@ -17,7 +17,7 @@
 ;; Commercial Software developed at private expense as specified in
 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
 ;;
-;; $Id: acl-frames.lisp,v 2.12 2007/04/25 20:29:26 layer Exp $
+;; $Id: acl-frames.lisp,v 2.13 2008/07/31 23:05:20 layer Exp $
 
 #|****************************************************************************
 *                                                                            *
@@ -571,7 +571,7 @@
     (unless tooltip-control
       (win:InitCommonControls)
       (setq tooltip-control
-	(win:CreateWindow "tooltips_class32"
+	(win:CreateWindow (excl:string-to-native "tooltips_class32")
 			  0
 			  TTS_ALWAYSTIP
 			  win:CW_USEDEFAULT win:CW_USEDEFAULT