Callback regression in Pharo 6 (60437)

createCallback
   ^ FFICallback 
  signature: #(long (long))
  block: [ :value | value ]

long test(long(*function)(long), long value) {
   return function(value); 

} 

#include <limits.h>

long long_min() {
   return LONG_MIN;
}

primCall: aCallback long: aNumber
   ^ self ffiCall: #(long test(FFICallback aCallback, long aNumber))

primLongMin
   ^ self ffiCall: #(long long_min()) 

test
  self 
    assert: (self primCall: self createCallback long: self primLongMin)

    equals: self primLongMin