Fix error cases for the standard current_predicate/1 predicate.
Authored by: pmoura 2014-12-12
Parent: [r8180]
Child: [r8182]