--- a/MethodWithBreakpoints.st	Fri May 09 15:06:50 2014 +0200
+++ b/MethodWithBreakpoints.st	Sat May 10 12:04:16 2014 +0200
@@ -92,13 +92,15 @@
                                         notifying:nil 
                                         install:false 
                                         ifFail:[ self error:'Failed to recompile method' ].
+                original setPackage: self package.
+                original setCategory: self category  .
             ].
             cls basicAddSelector:selector withMethod:original.    
         ]
     ]
 
     "Modified: / 29-08-2013 / 01:17:05 / cg"
-    "Modified: / 09-05-2014 / 12:41:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 10-05-2014 / 11:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodWithBreakpoints methodsFor:'queries'!
@@ -112,10 +114,10 @@
 !MethodWithBreakpoints class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.5 2014-05-09 11:48:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.6 2014-05-10 10:04:16 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.5 2014-05-09 11:48:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.6 2014-05-10 10:04:16 vrany Exp $'
 ! !