diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e819e66bf1..d6f21f4384 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+19990712-15:54 Antonio Linares <alinares@fivetech.com>
+  * include\classes.ch
+    * Missing oClass:Create call
+    * Fixed Method INLINE command
+  * Added tests\working\classch.prg classes.ch sample
+
 19990712-13:56 Antonio Linares <alinares@fivetech.com>
   * include\classes.ch
     * Added support for CONSTRUCTOR and INLINE Methods
diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index 117e170822..18e6548e4b 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -34,12 +34,13 @@
    oClass:AddMethod( <(MethodName)>, @<MethodName>() )
 
 #xcommand METHOD <MethodName>( [<params,...>] ) CONSTRUCTOR => ;
-   oClass:AddInline( <(MethodName)>, {|Self,<params>| <MethodName>(Self,<params>), Self } )
+   oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <MethodName>(Self [,<params>] ), Self } )
 
 #xcommand METHOD <MethodName>( [<params,...>] ) INLINE <Code,...> => ;
-   oClass:AddInline( <(MethodName)>, {|Self,<params>| <Code> } )
+   oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <Code> } )
 
-#xcommand ENDCLASS => endif ;;
+#xcommand ENDCLASS => oClass:Create() ;;
+                      endif ;;
                       return oClass:Instance()
 
 #xcommand METHOD <MethodName>([<params,...>]) CLASS <ClassName> => ;
diff --git a/harbour/obj/symbols.obj b/harbour/obj/symbols.obj
index 7fb9362bc2..8f8f845270 100644
Binary files a/harbour/obj/symbols.obj and b/harbour/obj/symbols.obj differ