Fix misplaced cut in recent changes
Fix misplaced cut in recent changes

This bug breaks the `current_object/4` and `create_category/4` built-in predicates when compiling rules.

LogtalkDotOrg/logtalk3,LogtalkDotOrg/logtalk3,LogtalkDotOrg/logtalk3,LogtalkDotOrg/logtalk3,LogtalkDotOrg/logtalk3,LogtalkDotOrg/logtalk3,LogtalkDotOrg/logtalk3