diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d3a33b134f..e9d9b359b7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -10,6 +10,12 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2012-11-21 03:35 UTC+0100 Viktor Szakats (harbour syenar.net)
+  * contrib/hbtip/mail.prg
+    ! fixed regression in r18462 where casing of class name
+      in a string got accidentally converted to natural.
+      Many thanks to Itamar Lins for the find.
+
 2012-11-21 01:07 UTC+0100 Viktor Szakats (harbour syenar.net)
   * utils/hbmk2/hbmk2.prg
     + implemented theoretically correct solution to extract
diff --git a/harbour/contrib/hbtip/mail.prg b/harbour/contrib/hbtip/mail.prg
index 5ad1dc196c..3d037cebd3 100644
--- a/harbour/contrib/hbtip/mail.prg
+++ b/harbour/contrib/hbtip/mail.prg
@@ -251,7 +251,7 @@ METHOD SetFieldOption( cPart, cOption, cValue ) CLASS TIPMail
 
 METHOD Attach( oSubPart ) CLASS TIPMail
 
-   IF HB_ISOBJECT( oSubPart ) .AND. oSubPart:ClassName == "TIPMail"
+   IF HB_ISOBJECT( oSubPart ) .AND. oSubPart:ClassName == "TIPMAIL"
       // reset wrong content-type
       IF At( "multipart/", Lower( ::GetFieldPart( "Content-Type" ) ) ) == 0
          ::hHeaders[ "Content-Type" ] := "multipart/mixed"