diff --git a/libs/objdetect/rcvHaarCascade.red b/libs/objdetect/rcvHaarCascade.red
index 428c723..68c0a6a 100644
--- a/libs/objdetect/rcvHaarCascade.red
+++ b/libs/objdetect/rcvHaarCascade.red
@@ -123,8 +123,8 @@ rcvCreateArrayPointers: routine [
 rcvReadTextClassifier: func [
 {Process classifier file and return number of stages, total number of nodes 
 and original win size}
-	f			[file!]
-	nParameters	[integer!] ;--default 23
+	f			[file! block!]			;--read classifier from file or memory
+	nParameters	[integer!] 				;--default 23
 	return: 	[block!]
 ][
 	;--clear arrays for each reading!
@@ -143,7 +143,7 @@ and original win size}
 	clear tiltedArray
 	isTilted: 0
 	
-	blk: read/lines f
+	blk: either file? f [read/lines f][f]
 	; header section ligne 1
 	;probe blk/1
 	line: 2