update GDKStoneSpec>>checkSystemIsVoting: for 3.7.0

GsDevKit · Oct 28, 2023 · e1ce369 · e1ce369
1 parent 3157d29
commit e1ce369
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/src/GsDevKit_stones-Core.package/GDKStoneSpec.class/instance/checkSystemIsVoting..st b/src/GsDevKit_stones-Core.package/GDKStoneSpec.class/instance/checkSystemIsVoting..st
@@ -1,7 +1,15 @@
 backup/restore
 checkSystemIsVoting: isVotingBlock
-	| vs sessId |
+	| vs |
 	vs := System voteState.
-	sessId := System sessionIdHoldingGcLock.
-	(sessId ~~ 0 or: [ vs > 0 and: [ vs < 4 ] ])
-		ifTrue: [ isVotingBlock value: sessId value: vs ]
+	(System respondsTo: #'sessionsHoldingGcLock')
+		ifTrue: [ 
+			| sessIds |
+			sessIds := System sessionsHoldingGcLock.
+			(sessIds size > 0 or: [ vs > 0 and: [ vs < 4 ] ])
+				ifTrue: [ isVotingBlock value: sessIds value: vs ] ]
+		ifFalse: [ 
+			| sessId |
+			sessId := System sessionIdHoldingGcLock.
+			(sessId ~~ 0 or: [ vs > 0 and: [ vs < 4 ] ])
+				ifTrue: [ isVotingBlock value: sessId value: vs ] ]