FIX: keeping spec/ref value in CHECKSUM scheme specification as some HELP functions are looking for it.

Author: Oldes

src/core/p-checksum.c

@@ -123,7 +123,7 @@
 
 	spec = BLK_SKIP(port, STD_PORT_SPEC);
 	if (!IS_OBJECT(spec)) Trap1(RE_INVALID_SPEC, spec);
-	method = Obj_Value(spec, STD_PORT_SPEC_HEAD_REF);
+	method = Obj_Value(spec, STD_PORT_SPEC_HEAD_PATH);
 	if (!method || !IS_WORD(method)) Trap1(RE_INVALID_SPEC, spec);
 
 	*D_RET = *D_ARG(1);

src/mezz/sys-ports.r

@@ -290,7 +290,7 @@ init-schemes: func [
 	]
 
 	make-scheme [
-		title: "Checksum incremental computing"
+		title: "Checksum port"
 		info: "Possible methods: MD5, SHA1, SHA256, SHA384, SHA512"
 		name: 'checksum
 		init: function [
@@ -311,6 +311,7 @@ init-schemes: func [
 			port/spec: object [
 				title:  spec/title
 				scheme: spec/scheme
+				ref:    spec/ref    ;-- help system wants this value!
 				method: meth
 			]
 			protect/words port/spec