Fix definition of the internal predicate that retrieves the current date for Quintus Prolog